perl decoy.pl script Search Results